summary.CARIRT <- function(CARIRT.out){
	
	print("Summary function not yet written.")

}
